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-- File: ImageCache.Mesa 
-- Last edited by 

Sandman; May 18. 1978 9:56 AM 

DIRECTORY 

AllocDefs: FROM "aVlocdefs". 
AltoDefs: FROM "altodefs", 
AUoFileDefs: FROM "aUof iledef s" , 
CoreSwapDef s : FROM "coreswapdeFs" , 
BFSDefs: FROM "bfsdefs", 
DiskDefs: FROM "diskdefs", 
ImageDefs: FROM "imagedefs", 
ImageFilelnfoDefs: FROM "imagef iieinFodef s" , 
InlineDefs: FROM " in! inedef s" , 
SegmentDefs: FROM "segmentdef s" , 
SystemDefs: FROM "systemdef s" ; 

ImageCache: PROGRAM 

IMPORTS AllocDefs, BFSDefs, SystemDefs, SegmentDefs 
EXPORTS ImageFilelnfoDefs 
SHARES ImageDefs. SegmentDefs » 

BEGIN 

-- User's core image management 

CoreSegmentObject: TYPE = RECORD [ 

segment: SegmentDefs. FileSegmentHandle, 

address: POINTER. 

lastused: CARDINAL, 

page: Al toDef s . PageNumber]; 

CoreSegment: TYPE = POINTER TO CoreSegmentObject; 

maxsegments: CARDINAL = 8; -- number of pages to keep in core 

CS: ARRAY [0. .maxsegments) OF CoreSegmentObject; 

CurrentUseValue: CARDINAL; 

CoreFile: SegmentDefs . FileHandle; 

DAs: ARRAY [-1..256] OF AltoFi leDef s . vDA; 

CacheSwap: Al locDef s .SwapStrategy *- 

Al locDef s .SwapStrategy[l ink : ,proc: Al locDef s .CantSwap]; 
PageMap: PACKED ARRAY [0..256) OF [0..256); 

InvalidPage: PUBLIC SIGNAL [page: Al toDefs . PageNumber] = CODE; 

InitlmageCache: PROCEDURE [file: SegmentDefs . FileHandle] « 
BEGIN 

i: CARDINAL; 
CurrentUseValue ♦- 0; 

FOR i IN [0. .maxsegments) DO CS[i] . segment<-NIL ENDLOOP; 
CoreFile ♦- file; 
SegmentDefs . LockFi le[CoreFi le] ; 
Al locDef s .AddSwapStrategy[@CacheSwap]; 
END; 

FlushCoreCache: PUBLIC AllocDefs .SwappingProcedure = 
BEGIN OPEN SegmentDefs; 
did: BOOLEAN <- FALSE; 
i : CARDINAL ^ 0; 
cs: CoreSegment; 

CacheSwap .proc *- AllocDefs. CantSwap; 
FOR i IN [0. .maxsegments) DO 
cs<-@CS[i]; 

IF cs. segment ^ NIL THEN 
BEGIN 

Unlock[cs .segment] ; 
DeleteFi leSegment[cs. segment]; 
cs . segment«-NIL; 
did ♦- TRUE; 
END; 
ENDLOOP; 
Curren tUseValue^-O; 
RETURN[did] 
END; 
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NewCoreSegment: PROCEDURE [p: AltoOef s .PageNumber , cs: CoreSegment] 
BEGIN OPEN SegmentDefs; 
seg: FileSegmentHandle; 

seg <- NewFneSegment[CoreFne, PageMap[p], 1, Read]; 
SetFi1eSegmentDA[seg, DAs[p]]; 
Swapln[seg]; 

DAs[p] <- GetFneSegmentDA[seg]; 
cs. segment <- seg; 

cs. address ^ FileSegmentAddress[seg] ; 
cs.page ^ p; 
END; 

GetCS: PROCEDURE [p: AltoDefs . PageNumber] RETURNS [sp: CoreSegment] 
BEGIN 

minUseVal: CARDINAL ^ CurrentUseValue; 
minUselndex: CARDINAL ♦- 0; 
i: CARDINAL; 

BEGIN 

FOR i IN [0. .maxsegments) DO 
sp <- eCSCi]; 

IF sp. segment = NIL THEN GO TO newseg; 
IF sp.page « p THEN EXIT; 
IF sp.lastused < minUseVal THEN 

BEGIN minUseVal^sp . lastused; minUseIndex<-i END; 
REPEAT FINISHED «> 
BEGIN 
FOR i IN [0. .maxsegments) DO 

CS[i] . lastused ^ CS[i]. lastused - minUseVal; 
ENDLOOP; 
CurrentUseValue *- CurrentUseValue - minUseVal; 
sp ♦- @CS[minUseIndex]; 
SegmentDefs .Unlock[sp. segment]; 
SegmentDef S.Del eteFileSegment[sp. segment]; 
sp. segment «- NIL; 
GO TO newseg; 
END 
ENDLOOP; 
EXITS newseg «> 
BEGIN 

cso: CoreSegmentObject; 
NewCoreSegment[p,@cso]; 
FOR i IN [0. .maxsegments) DO 
sp ^ 0CS[i]; 

IF sp. segment = NIL THEN BEGIN spt <- cso; EXIT END; 
REPEAT FINISHED => ERROR 
ENDLOOP; 
END; 
END; 

sp.lastused *- CurrentUseValue ^ CurrentUseValue+l; 
CacheSwap .proc <- FlushCoreCache; 
RETURN[sp]; 
END; 

READ: PUBLIC PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] = 
BEGIN OPEN AltoDefs, InlineDeFs; 
fp: PageNumber = SELECT BITSHIFr[a, -LogPageSize] FROM 

IN [2.. 253] => BITSHIFT[a, -LogPageSize], 

1 => 254, 

=> 255, 

ENDCASE «> 0; 
IF fp=0 THEN RETURN [MEMORY[a]]; 
IF PageMap[fp] = THEN SIGNAL Inval idPage[f p] ; 
RETURN [(GetCS[fp]. address + BI rAND[a.PageS ize-l])t] ; 
END; 

CopyRead: PUBLIC PROCEDURE [from, to: POINTER, nwords: CARDINAL] - 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .nwords) DO 
{to+i)t 4- READ[from+i]; 
ENDLOOP; 
RETURN 
END; 
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InvalidlmageFile: PUBLIC SIGNAL « CODE; 

-- initialization 

InitializelmageCache: PUBLIC PROCEDURE [seg: SegmentDef s . FileSegmentHandle] » 
BEGIN OPEN AltoFileDefs, DiskDefs, SegmentDefs; 
image: POINTER TO ImageDef s . ImageHeader ; 
map: POINTER TO normal ImageDef s .Mapltem; 
i, maplndex: CARDINAL ^ 0; 
page, count, imagePage: CARDINAL; 
p: POINTER; 

ImageDAs: ARRAY [-1..256] OF Al toFil eDef s . vDA; 
diskrequGst: DiskRequest; 
Swapln[seg] ; 

image <- FileSegmentAddress[seg]; 

IF image. prefix. type « checkfile THEN SIGNAL InvalidlmageFile; 
diskrequest <- DiskRequest [ 

ca: SystemDef s .AnocatePages[l] , 

fixedCA: TRUE, 

da: ©ImageDAs[0], 

fp: @seg.f ile.fp, 

firstPage: 0, 

lastPage: 255, 

action: ReadD, 

lastAction: ReadD, 

signalCheckError: FALSE, 

option: update[BFSDef s .GetNextDA]]; 
p *- LOOPHOLE[@ImageDAs[0]-l]; 
pt 4- f illinDA; 

InlineDefs.COPY[from: p, to: p+1, nwords: 257]; 
ImageDAs[0] <- seg . f il e . f p . 1 eaderDA; 
[] ^ BFSDefs.ActOnPages[LOOPHOLE[0diskrequest]]; 
SystemDef s. FreePages[diskrequest.ca]; 
map ^ LOOPHOLE[@image.map[0]]; 
imagePage ♦- ImageDefs . FirstlmageDataPage; 

FOR i IN [0..256) DO DAs[i] ^ Al toFi 1 eDef s . eof DA; PageMap[i] <- 0; ENDLOOP; 
WHILE (map+maplndex)t H^ ImageDef s .Mapltem[0 ,0 , normal []] DO 

page <- (map+maplndex)t .page; 

count <- (map+maplndex)t. count; 

FOR i IN [0. .count) DO 

DAs[page+i] ^ ImageDAs[imagePage+i] ; 
PageMap[page+i] <- imagePage+i; 
ENDLOOP; 

imagePage ♦- imagePage+count ; 

maplndex *- maplndex + 1; 

ENDLOOP; 
Unlock[seg]; 

InitImageCache[seg .file]; 
END; 

END. . . 



